home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 001_100 / DISK0027 / DISK0027.ZIP / FLAG.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  384b  |  14 lines
  1. 10 CLS : SCREEN 1 : COLOR 0,0
  2. 12 X=200 : Y=0
  3. 15 LINE (X+12,Y+70)-(X+52,Y+82),1,BF
  4. 20 LINE (X+53,Y+70)-(X+53,Y+99),2
  5. 30 LINE (X+54,Y+70)-(X+54,Y+99),2
  6. 40 CIRCLE (X+53,Y+68),2,2
  7. 50 PAINT (X+53,Y+68),2,2
  8. 70 LOCATE 10,28 : PRINT "swap";
  9. 80 CIRCLE (X+54,Y+99),4,3,,,5/18
  10. 90 PAINT (X+54,Y+99),4,3
  11. 8),2,2
  12. 50 PAINT (X+53,Y+68),2,2
  13. 70 LOCATE 10,28 : PRINT "swap";
  14. 80 CIRCLE (X+54